/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_05 / pointers / defpointer

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 44 | 65 66 50 6f 69 6e 74 65 |..... >D|efPointe|
|00000010| 72 0d 00 14 40 f4 20 50 | 72 6f 67 72 61 6d 20 66 |r...@. P|rogram f|
|00000020| 6f 72 20 63 68 61 6e 67 | 69 6e 67 20 74 68 65 20 |or chang|ing the |
|00000030| 70 6f 69 6e 74 65 72 20 | 28 75 73 65 73 20 41 72 |pointer |(uses Ar|
|00000040| 63 68 69 76 65 20 76 6f | 6c 20 31 20 6e 6f 20 32 |chive vo|l 1 no 2|
|00000050| 29 0d 00 1e 29 f4 20 62 | 79 20 4b 65 69 74 68 20 |)...). b|y Keith |
|00000060| 4d 63 41 6c 70 69 6e 65 | 20 26 20 47 65 6d 20 45 |McAlpine| & Gem E|
|00000070| 6c 65 63 74 72 6f 6e 69 | 63 73 0d 00 28 05 20 0d |lectroni|cs..(. .|
|00000080| 00 32 09 eb 31 32 3a 87 | 0d 00 3c 0f de 20 63 6f |.2..12:.|..<.. co|
|00000090| 6c 73 28 32 2c 32 29 0d | 00 46 29 63 6f 6c 73 28 |ls(2,2).|.F)cols(|
|000000a0| 30 2c 30 29 3d 32 34 30 | 3a 63 6f 6c 73 28 30 2c |0,0)=240|:cols(0,|
|000000b0| 31 29 3d 30 3a 63 6f 6c | 73 28 30 2c 32 29 3d 30 |1)=0:col|s(0,2)=0|
|000000c0| 0d 00 50 29 63 6f 6c 73 | 28 31 2c 30 29 3d 30 3a |..P)cols|(1,0)=0:|
|000000d0| 63 6f 6c 73 28 31 2c 31 | 29 3d 32 34 30 3a 63 6f |cols(1,1|)=240:co|
|000000e0| 6c 73 28 31 2c 32 29 3d | 30 0d 00 5a 2b 63 6f 6c |ls(1,2)=|0..Z+col|
|000000f0| 73 28 32 2c 30 29 3d 32 | 34 30 3a 63 6f 6c 73 28 |s(2,0)=2|40:cols(|
|00000100| 32 2c 31 29 3d 32 34 30 | 3a 63 6f 6c 73 28 32 2c |2,1)=240|:cols(2,|
|00000110| 32 29 3d 30 0d 00 64 37 | e3 20 6c 70 3d 30 20 b8 |2)=0..d7|. lp=0 .|
|00000120| 32 3a fb 20 6c 70 2b 31 | 2c 63 6f 6c 73 28 6c 70 |2:. lp+1|,cols(lp|
|00000130| 2c 30 29 2c 63 6f 6c 73 | 28 6c 70 2c 31 29 2c 63 |,0),cols|(lp,1),c|
|00000140| 6f 6c 73 28 6c 70 2c 32 | 29 3a ed 0d 00 6e 46 ef |ols(lp,2|):...nF.|
|00000150| 32 33 2c 32 32 34 2c 32 | 35 35 2c 31 32 38 2c 31 |23,224,2|55,128,1|
|00000160| 32 38 2c 31 32 38 2c 31 | 32 38 2c 31 32 38 2c 31 |28,128,1|28,128,1|
|00000170| 32 38 2c 32 35 35 2c 32 | 33 2c 32 32 35 2c 32 35 |28,255,2|3,225,25|
|00000180| 35 2c 31 2c 31 2c 31 2c | 31 2c 31 2c 31 2c 32 35 |5,1,1,1,|1,1,1,25|
|00000190| 35 0d 00 78 3a fb 20 31 | 33 2c 32 35 35 2c 30 2c |5..x:. 1|3,255,0,|
|000001a0| 30 3a fb 20 31 34 2c 30 | 2c 32 35 35 2c 30 3a fb |0:. 14,0|,255,0:.|
|000001b0| 20 31 35 2c 30 2c 30 2c | 32 35 35 3a fb 20 37 2c | 15,0,0,|255:. 7,|
|000001c0| 31 32 38 2c 31 32 38 2c | 31 32 38 0d 00 82 0d f2 |128,128,|128.....|
|000001d0| 64 72 61 77 67 72 69 64 | 0d 00 8c 1b e6 30 3a c8 |drawgrid|.....0:.|
|000001e0| 93 20 c8 90 20 31 30 35 | 30 2c 39 30 30 2c 39 32 |. .. 105|0,900,92|
|000001f0| 2c 39 32 0d 00 96 1b e6 | 31 3a c8 93 20 c8 90 20 |,92.....|1:.. .. |
|00000200| 31 31 35 30 2c 39 30 30 | 2c 39 32 2c 39 32 0d 00 |1150,900|,92,92..|
|00000210| a0 1b e6 32 3a c8 93 20 | c8 90 20 31 30 35 30 2c |...2:.. |.. 1050,|
|00000220| 38 30 30 2c 39 32 2c 39 | 32 0d 00 aa 1b e6 33 3a |800,92,9|2.....3:|
|00000230| c8 93 20 c8 90 20 31 31 | 35 30 2c 38 30 30 2c 39 |.. .. 11|50,800,9|
|00000240| 32 2c 39 32 0d 00 b4 2f | e3 20 6c 70 3d 31 33 20 |2,92.../|. lp=13 |
|00000250| b8 20 31 35 3a e6 20 6c | 70 3a c8 8f 20 c8 90 20 |. 15:. l|p:.. .. |
|00000260| 28 6c 70 2a 38 30 29 2b | 32 34 2c 37 34 30 2c 32 |(lp*80)+|24,740,2|
|00000270| 34 3a ed 0d 00 be 34 fb | 36 3a f1 8a 36 36 2c 31 |4:....4.|6:..66,1|
|00000280| 32 29 22 53 61 76 65 20 | 70 74 72 20 64 61 74 61 |2)"Save |ptr data|
|00000290| 22 8a 36 36 2c 31 33 29 | 22 4c 6f 61 64 20 70 74 |".66,13)|"Load pt|
|000002a0| 72 20 64 61 74 61 22 0d | 00 c8 3a f1 8a 36 36 2c |r data".|..:..66,|
|000002b0| 31 34 29 22 43 6c 65 61 | 72 20 67 72 69 64 22 8a |14)"Clea|r grid".|
|000002c0| 36 36 2c 31 35 29 22 53 | 65 74 20 70 74 72 20 73 |66,15)"S|et ptr s|
|000002d0| 69 7a 65 22 8a 36 36 2c | 31 36 29 22 51 75 69 74 |ize".66,|16)"Quit|
|000002e0| 22 0d 00 d2 0c 2a 50 4f | 49 4e 54 45 52 0d 00 dc |"....*PO|INTER...|
|000002f0| 10 63 6f 6c 25 3d 31 3a | 6e 79 25 3d 30 0d 00 e6 |.col%=1:|ny%=0...|
|00000300| 05 f5 0d 00 f0 0f c8 97 | 20 78 25 2c 79 25 2c 62 |........| x%,y%,b|
|00000310| 25 0d 00 fa 19 e7 20 78 | 25 3c 31 30 32 34 20 8c |%..... x|%<1024 .|
|00000320| 20 f2 6d 61 69 6e 67 72 | 69 64 0d 01 04 41 e7 20 | .maingr|id...A. |
|00000330| 78 25 3e 31 30 34 39 20 | 80 20 79 25 3e 37 39 39 |x%>1049 |. y%>799|
|00000340| 20 80 20 62 25 3d 34 3a | 63 6f 6c 25 3d b0 78 25 | . b%=4:|col%=.x%|
|00000350| 2c 79 25 29 3a d4 20 31 | 2c 2d 31 35 2c 28 63 6f |,y%):. 1|,-15,(co|
|00000360| 6c 25 2a 34 38 29 2b 34 | 38 2c 33 0d 01 0e 2b e7 |l%*48)+4|8,3...+.|
|00000370| 20 28 78 25 3e 3d 31 30 | 34 30 20 80 20 79 25 3e | (x%>=10|40 . y%>|
|00000380| 37 30 30 20 80 20 79 25 | 3c 37 37 30 29 20 80 20 |700 . y%|<770) . |
|00000390| 62 25 3c 34 20 8c 0d 01 | 18 35 20 20 20 70 61 72 |b%<4 ...|.5   par|
|000003a0| 61 63 6f 6c 3d b0 78 25 | 2c 79 25 29 2d 31 33 3a |acol=.x%|,y%)-13:|
|000003b0| e7 20 70 61 72 61 63 6f | 6c 3c 30 20 84 20 63 6f |. paraco|l<0 . co|
|000003c0| 6c 25 3d 30 20 8c 20 8d | 44 40 41 0d 01 22 5f 20 |l%=0 . .|D@A.."_ |
|000003d0| 20 20 e7 20 62 25 3d 31 | 20 80 20 63 6f 6c 73 28 |  . b%=1| . cols(|
|000003e0| 63 6f 6c 25 2d 31 2c 70 | 61 72 61 63 6f 6c 29 3e |col%-1,p|aracol)>|
|000003f0| 30 20 8c 20 63 6f 6c 73 | 28 63 6f 6c 25 2d 31 2c |0 . cols|(col%-1,|
|00000400| 70 61 72 61 63 6f 6c 29 | 2d 3d 31 3a d4 20 31 2c |paracol)|-=1:. 1,|
|00000410| 2d 31 35 2c 63 6f 6c 73 | 28 63 6f 6c 25 2d 31 2c |-15,cols|(col%-1,|
|00000420| 70 61 72 61 63 6f 6c 29 | 2c 38 0d 01 2c 69 20 20 |paracol)|,8..,i  |
|00000430| 20 e7 20 62 25 3d 32 20 | 80 20 63 6f 6c 73 28 63 | . b%=2 |. cols(c|
|00000440| 6f 6c 25 2d 31 2c 70 61 | 72 61 63 6f 6c 29 3c 32 |ol%-1,pa|racol)<2|
|00000450| 34 30 20 8c 20 63 6f 6c | 73 28 63 6f 6c 25 2d 31 |40 . col|s(col%-1|
|00000460| 2c 70 61 72 61 63 6f 6c | 29 2b 3d 31 3a d4 20 31 |,paracol|)+=1:. 1|
|00000470| 2c 2d 31 35 2c 63 6f 6c | 73 28 63 6f 6c 25 2d 31 |,-15,col|s(col%-1|
|00000480| 2c 70 61 72 61 63 6f 6c | 29 2f 31 36 2a 34 2b 35 |,paracol|)/16*4+5|
|00000490| 30 2c 35 0d 01 36 3a 20 | 20 20 fb 20 63 6f 6c 25 |0,5..6: |  . col%|
|000004a0| 2c 63 6f 6c 73 28 63 6f | 6c 25 2d 31 2c 30 29 2c |,cols(co|l%-1,0),|
|000004b0| 63 6f 6c 73 28 63 6f 6c | 25 2d 31 2c 31 29 2c 63 |cols(col|%-1,1),c|
|000004c0| 6f 6c 73 28 63 6f 6c 25 | 2d 31 2c 32 29 0d 01 40 |ols(col%|-1,2)..@|
|000004d0| 05 cd 0d 01 4a 1f 58 25 | 3d 78 25 20 81 20 31 36 |....J.X%|=x% . 16|
|000004e0| 3a 59 25 3d 28 31 30 32 | 33 2d 79 25 29 20 81 33 |:Y%=(102|3-y%) .3|
|000004f0| 32 0d 01 54 56 e7 20 58 | 25 3e 36 34 20 80 20 59 |2..TV. X|%>64 . Y|
|00000500| 25 3e 31 31 20 80 20 59 | 25 3c 31 37 20 8c 20 fb |%>11 . Y|%<17 . .|
|00000510| 20 35 3a ef 33 31 2c 36 | 35 2c 6e 79 25 2c 33 32 | 5:.31,6|5,ny%,32|
|00000520| 3a 6e 79 25 3d 59 25 3a | ef 33 31 2c 36 35 2c 6e |:ny%=Y%:|.31,65,n|
|00000530| 79 25 2c 34 32 3a e7 20 | 62 25 3d 31 20 8c 20 f2 |y%,42:. |b%=1 . .|
|00000540| 6f 70 74 69 6f 6e 73 0d | 01 5e 07 fd 20 30 0d 01 |options.|.^.. 0..|
|00000550| 68 05 20 0d 01 72 0d dd | f2 6f 70 74 69 6f 6e 73 |h. ..r..|.options|
|00000560| 0d 01 7c 10 d4 31 2c 2d | 31 35 2c 31 35 30 2c 33 |..|..1,-|15,150,3|
|00000570| 0d 01 86 0c c8 8e 20 6e | 79 25 20 ca 0d 01 90 0e |...... n|y% .....|
|00000580| c9 20 31 32 3a f2 73 61 | 76 65 0d 01 9a 0e c9 20 |. 12:.sa|ve..... |
|00000590| 31 33 3a f2 6c 6f 61 64 | 0d 01 a4 12 c9 20 31 34 |13:.load|..... 14|
|000005a0| 3a f2 64 72 61 77 67 72 | 69 64 0d 01 ae 11 c9 20 |:.drawgr|id..... |
|000005b0| 31 35 3a f2 73 65 74 73 | 69 7a 65 0d 01 b8 1c c9 |15:.sets|ize.....|
|000005c0| 20 31 36 3a eb 30 3a f1 | 27 22 46 69 6e 69 73 68 | 16:.0:.|'"Finish|
|000005d0| 65 64 22 27 27 3a e0 0d | 01 c2 05 cb 0d 01 cc 0f |ed"'':..|........|
|000005e0| d4 31 2c 2d 31 35 2c 38 | 30 2c 33 0d 01 d6 05 e1 |.1,-15,8|0,3.....|
|000005f0| 0d 01 e0 05 20 0d 01 ea | 0a dd f2 73 61 76 65 0d |.... ...|...save.|
|00000600| 01 f4 13 66 69 6c 65 24 | 3d a4 66 69 6c 65 6e 61 |...file$|=.filena|
|00000610| 6d 65 0d 01 fe 2e e6 33 | 2c 37 3a c8 8f 20 c8 90 |me.....3|,7:.. ..|
|00000620| 20 28 6d 78 25 2a 33 32 | 29 2b 31 36 2c 28 28 33 | (mx%*32|)+16,((3|
|00000630| 31 2d 6d 79 25 29 2a 33 | 32 29 2b 31 36 2c 31 32 |1-my%)*3|2)+16,12|
|00000640| 0d 02 08 11 66 69 6c 65 | 3d ae 28 66 69 6c 65 24 |....file|=.(file$|
|00000650| 29 0d 02 12 36 d5 23 66 | 69 6c 65 2c 30 3a d5 23 |)...6.#f|ile,0:.#|
|00000660| 66 69 6c 65 2c 32 3a d5 | 23 66 69 6c 65 2c 73 78 |file,2:.|#file,sx|
|00000670| 25 3a d5 23 66 69 6c 65 | 2c 73 79 25 3a d5 23 66 |%:.#file|,sy%:.#f|
|00000680| 69 6c 65 2c 6d 78 25 0d | 02 1c 32 d5 23 66 69 6c |ile,mx%.|..2.#fil|
|00000690| 65 2c 6d 79 25 3a d5 23 | 66 69 6c 65 2c 30 3a d5 |e,my%:.#|file,0:.|
|000006a0| 23 66 69 6c 65 2c 30 3a | d5 23 66 69 6c 65 2c 30 |#file,0:|.#file,0|
|000006b0| 3a d5 23 66 69 6c 65 2c | 30 0d 02 26 30 e3 20 6c |:.#file,|0..&0. l|
|000006c0| 70 31 3d 30 b8 32 3a e3 | 20 6c 70 32 3d 30 20 b8 |p1=0.2:.| lp2=0 .|
|000006d0| 32 3a d5 23 66 69 6c 65 | 2c 63 6f 6c 73 28 6c 70 |2:.#file|,cols(lp|
|000006e0| 31 2c 6c 70 32 29 3a ed | 2c 0d 02 30 39 e3 20 79 |1,lp2):.|,..09. y|
|000006f0| 25 3d 31 30 31 30 20 b8 | 20 28 33 31 2d 73 79 25 |%=1010 .| (31-sy%|
|00000700| 29 2a 33 32 20 88 20 2d | 33 32 3a e3 20 78 25 3d |)*32 . -|32:. x%=|
|00000710| 31 36 20 b8 20 73 78 25 | 2a 31 32 38 20 88 20 31 |16 . sx%|*128 . 1|
|00000720| 32 38 0d 02 3a 21 d5 23 | 66 69 6c 65 2c a4 62 79 |28..:!.#|file,.by|
|00000730| 74 65 28 78 25 2c 79 25 | 29 3a ed 2c 3a d9 23 66 |te(x%,y%|):.,:.#f|
|00000740| 69 6c 65 0d 02 44 2e e6 | 33 2c 37 3a c8 8f 20 c8 |ile..D..|3,7:.. .|
|00000750| 90 20 28 6d 78 25 2a 33 | 32 29 2b 31 36 2c 28 28 |. (mx%*3|2)+16,((|
|00000760| 33 31 2d 6d 79 25 29 2a | 33 32 29 2b 31 36 2c 31 |31-my%)*|32)+16,1|
|00000770| 32 0d 02 4e 10 f1 8a 36 | 34 2c 31 30 29 3b 89 31 |2..N...6|4,10);.1|
|00000780| 35 0d 02 58 05 e1 0d 02 | 62 05 20 0d 02 6c 0a dd |5..X....|b. ..l..|
|00000790| f2 6c 6f 61 64 0d 02 76 | 3c 66 69 6c 65 24 3d a4 |.load..v|<file$=.|
|000007a0| 66 69 6c 65 6e 61 6d 65 | 3a 66 69 6c 65 3d 8e 28 |filename|:file=.(|
|000007b0| 66 69 6c 65 24 29 3a d9 | 23 66 69 6c 65 3a e7 20 |file$):.|#file:. |
|000007c0| 66 69 6c 65 3d 30 20 8c | 20 ef 37 3a e5 8d 54 42 |file=0 .| .7:..TB|
|000007d0| 43 0d 02 80 2e e6 33 2c | 37 3a c8 8f 20 c8 90 20 |C.....3,|7:.. .. |
|000007e0| 28 6d 78 25 2a 33 32 29 | 2b 31 36 2c 28 28 33 31 |(mx%*32)|+16,((31|
|000007f0| 2d 6d 79 25 29 2a 33 32 | 29 2b 31 36 2c 31 32 0d |-my%)*32|)+16,12.|
|00000800| 02 8a 11 66 69 6c 65 3d | 8e 28 66 69 6c 65 24 29 |...file=|.(file$)|
|00000810| 0d 02 94 29 ef 32 38 2c | 36 36 2c 33 30 2c 37 38 |...).28,|66,30,78|
|00000820| 2c 31 38 2c 31 32 2c 32 | 38 2c 30 2c 33 31 2c 36 |,18,12,2|8,0,31,6|
|00000830| 34 2c 30 2c 31 32 2c 32 | 36 0d 02 9e 36 64 3d 9a |4,0,12,2|6...6d=.|
|00000840| 23 66 69 6c 65 3a 64 3d | 9a 23 66 69 6c 65 3a 73 |#file:d=|.#file:s|
|00000850| 78 25 3d 9a 23 66 69 6c | 65 3a 73 79 25 3d 9a 23 |x%=.#fil|e:sy%=.#|
|00000860| 66 69 6c 65 3a 6d 78 25 | 3d 9a 23 66 69 6c 65 0d |file:mx%|=.#file.|
|00000870| 02 a8 32 6d 79 25 3d 9a | 23 66 69 6c 65 3a 64 3d |..2my%=.|#file:d=|
|00000880| 9a 23 66 69 6c 65 3a 64 | 3d 9a 23 66 69 6c 65 3a |.#file:d|=.#file:|
|00000890| 64 3d 9a 23 66 69 6c 65 | 3a 64 3d 9a 23 66 69 6c |d=.#file|:d=.#fil|
|000008a0| 65 0d 02 b2 30 e3 20 6c | 70 31 3d 30 b8 32 3a e3 |e...0. l|p1=0.2:.|
|000008b0| 20 6c 70 32 3d 30 20 b8 | 32 3a 63 6f 6c 73 28 6c | lp2=0 .|2:cols(l|
|000008c0| 70 31 2c 6c 70 32 29 3d | 9a 23 66 69 6c 65 3a ed |p1,lp2)=|.#file:.|
|000008d0| 2c 0d 02 bc 35 e3 6c 70 | 3d 30 b8 32 3a fb 20 6c |,...5.lp|=0.2:. l|
|000008e0| 70 2b 31 2c 63 6f 6c 73 | 28 6c 70 2c 30 29 2c 63 |p+1,cols|(lp,0),c|
|000008f0| 6f 6c 73 28 6c 70 2c 31 | 29 2c 63 6f 6c 73 28 6c |ols(lp,1|),cols(l|
|00000900| 70 2c 32 29 3a ed 0d 02 | c6 28 e3 20 79 25 3d 30 |p,2):...|.(. y%=0|
|00000910| 20 b8 20 73 79 25 2d 31 | 3a 3a e3 20 78 25 3d 30 | . sy%-1|::. x%=0|
|00000920| 20 b8 20 73 78 25 2a 38 | 2d 31 20 88 20 38 0d 02 | . sx%*8|-1 . 8..|
|00000930| d0 32 62 79 74 65 25 3d | 9a 23 66 69 6c 65 3a 70 |.2byte%=|.#file:p|
|00000940| 31 3d 28 62 79 74 65 25 | 20 80 20 33 29 3a 70 32 |1=(byte%| . 3):p2|
|00000950| 3d 28 62 79 74 65 25 20 | 80 20 31 32 29 3e 3e 32 |=(byte% |. 12)>>2|
|00000960| 0d 02 da 3c 70 33 3d 28 | 62 79 74 65 25 20 80 20 |...<p3=(|byte% . |
|00000970| 34 38 29 3e 3e 34 3a 70 | 34 3d 28 62 79 74 65 25 |48)>>4:p|4=(byte%|
|00000980| 20 80 20 31 39 32 29 3e | 3e 36 3a f2 70 6c 6f 74 | . 192)>|>6:.plot|
|00000990| 28 78 25 2b 36 2c 79 25 | 2c 70 34 29 0d 02 e4 37 |(x%+6,y%|,p4)...7|
|000009a0| f2 70 6c 6f 74 28 78 25 | 2c 79 25 2c 70 31 29 3a |.plot(x%|,y%,p1):|
|000009b0| f2 70 6c 6f 74 28 78 25 | 2b 32 2c 79 25 2c 70 32 |.plot(x%|+2,y%,p2|
|000009c0| 29 3a f2 70 6c 6f 74 28 | 78 25 2b 34 2c 79 25 2c |):.plot(|x%+4,y%,|
|000009d0| 70 33 29 0d 02 ee 0d ed | 2c 3a d9 23 66 69 6c 65 |p3).....|,:.#file|
|000009e0| 0d 02 f8 2e e6 33 2c 37 | 3a c8 8f 20 c8 90 20 28 |.....3,7|:.. .. (|
|000009f0| 6d 78 25 2a 33 32 29 2b | 31 36 2c 28 28 33 31 2d |mx%*32)+|16,((31-|
|00000a00| 6d 79 25 29 2a 33 32 29 | 2b 31 36 2c 31 32 0d 03 |my%)*32)|+16,12..|
|00000a10| 02 10 f1 8a 36 34 2c 31 | 30 29 3b 89 31 35 0d 03 |....64,1|0);.15..|
|00000a20| 0c 05 e1 0d 03 16 05 20 | 0d 03 20 0e dd f2 64 72 |....... |.. ...dr|
|00000a30| 61 77 67 72 69 64 0d 03 | 2a 3a fb 31 32 38 3a fb |awgrid..|*:.128:.|
|00000a40| 37 3a 73 78 25 3d 38 3a | 73 79 25 3d 33 32 3a 6d |7:sx%=8:|sy%=32:m|
|00000a50| 78 25 3d 30 3a 6d 79 25 | 3d 30 3a ef 32 38 2c 36 |x%=0:my%|=0:.28,6|
|00000a60| 36 2c 33 30 2c 37 38 2c | 31 38 2c 31 32 2c 32 36 |6,30,78,|18,12,26|
|00000a70| 0d 03 34 2b e3 20 79 79 | 25 3d 30 20 b8 20 33 31 |..4+. yy|%=0 . 31|
|00000a80| 3a f1 8a 30 2c 79 79 25 | 29 3b c4 33 32 2c bd 32 |:..0,yy%|);.32,.2|
|00000a90| 32 34 2b bd 32 32 35 29 | 3b 3a ed 0d 03 3e 2e e6 |24+.225)|;:...>..|
|00000aa0| 33 2c 37 3a c8 8f 20 c8 | 90 20 28 6d 78 25 2a 33 |3,7:.. .|. (mx%*3|
|00000ab0| 32 29 2b 31 36 2c 28 28 | 33 31 2d 6d 79 25 29 2a |2)+16,((|31-my%)*|
|00000ac0| 33 32 29 2b 31 36 2c 31 | 32 0d 03 48 05 e1 0d 03 |32)+16,1|2..H....|
|00000ad0| 52 05 20 0d 03 5c 12 dd | 20 a4 62 79 74 65 28 61 |R. ..\..| .byte(a|
|00000ae0| 25 2c 62 25 29 0d 03 66 | 38 70 31 3d b0 61 25 2c |%,b%)..f|8p1=.a%,|
|00000af0| 62 25 29 3a 70 32 3d b0 | 61 25 2b 33 32 2c 62 25 |b%):p2=.|a%+32,b%|
|00000b00| 29 3a 70 33 3d b0 61 25 | 2b 36 34 2c 62 25 29 3a |):p3=.a%|+64,b%):|
|00000b10| 70 34 3d b0 61 25 2b 39 | 36 2c 62 25 29 0d 03 70 |p4=.a%+9|6,b%)..p|
|00000b20| 20 3d 28 70 31 2b 28 70 | 32 2a 34 29 2b 28 70 33 | =(p1+(p|2*4)+(p3|
|00000b30| 2a 31 36 29 2b 28 70 34 | 2a 36 34 29 29 0d 03 7a |*16)+(p4|*64))..z|
|00000b40| 05 20 0d 03 84 14 dd f2 | 70 6c 6f 74 28 61 25 2c |. ......|plot(a%,|
|00000b50| 62 25 2c 63 25 29 0d 03 | 8e 2d fb 20 63 25 2b 31 |b%,c%)..|.-. c%+1|
|00000b60| 32 38 3a fb 37 3a f1 8a | 61 25 2c 62 25 29 3b bd |28:.7:..|a%,b%);.|
|00000b70| 32 32 34 3b bd 32 32 35 | 3b 3a fb 31 32 38 3a e6 |224;.225|;:.128:.|
|00000b80| 20 63 25 0d 03 98 41 c8 | 92 20 28 61 25 2a 32 29 | c%...A.|. (a%*2)|
|00000b90| 2b 31 31 30 30 2c 28 28 | 33 31 2d 62 25 29 2a 34 |+1100,((|31-b%)*4|
|00000ba0| 29 2b 33 30 30 3a c8 92 | 20 28 61 25 2a 32 29 2b |)+300:..| (a%*2)+|
|00000bb0| 31 31 30 32 2c 28 28 33 | 31 2d 62 25 29 2a 34 29 |1102,((3|1-b%)*4)|
|00000bc0| 2b 33 30 30 0d 03 a2 1e | c8 92 20 61 25 2b 31 31 |+300....|.. a%+11|
|00000bd0| 34 30 2c 28 28 33 31 2d | 62 25 29 2a 34 29 2b 31 |40,((31-|b%)*4)+1|
|00000be0| 31 30 0d 03 ac 05 e1 0d | 03 b6 05 20 0d 03 c0 0e |10......|... ....|
|00000bf0| dd f2 6d 61 69 6e 67 72 | 69 64 0d 03 ca 21 78 78 |..maingr|id...!xx|
|00000c00| 25 3d 78 25 20 81 20 33 | 32 3a 79 79 25 3d 28 31 |%=x% . 3|2:yy%=(1|
|00000c10| 30 32 33 2d 79 25 29 20 | 81 33 32 0d 03 d4 6f e7 |023-y%) |.32...o.|
|00000c20| 20 62 25 3d 32 20 8c 20 | e6 33 2c 37 3a c8 8f 20 | b%=2 . |.3,7:.. |
|00000c30| c8 90 20 28 6d 78 25 2a | 33 32 29 2b 31 36 2c 28 |.. (mx%*|32)+16,(|
|00000c40| 28 33 31 2d 6d 79 25 29 | 2a 33 32 29 2b 31 36 2c |(31-my%)|*32)+16,|
|00000c50| 31 32 3a 6d 78 25 3d 78 | 78 25 3a 6d 79 25 3d 79 |12:mx%=x|x%:my%=y|
|00000c60| 79 25 3a c8 8f 20 c8 90 | 20 28 6d 78 25 2a 33 32 |y%:.. ..| (mx%*32|
|00000c70| 29 2b 31 36 2c 28 28 33 | 31 2d 6d 79 25 29 2a 33 |)+16,((3|1-my%)*3|
|00000c80| 32 29 2b 31 36 2c 31 32 | 3a e1 0d 03 de 0f e7 20 |2)+16,12|:...... |
|00000c90| 62 25 3c 3e 34 20 8c 20 | e1 0d 03 e8 42 e7 20 78 |b%<>4 . |....B. x|
|00000ca0| 78 25 3d 6d 78 25 20 80 | 20 79 79 25 3d 6d 79 25 |x%=mx% .| yy%=my%|
|00000cb0| 20 e6 33 2c 37 3a c8 8f | 20 c8 90 20 28 6d 78 25 | .3,7:..| .. (mx%|
|00000cc0| 2a 33 32 29 2b 31 36 2c | 28 28 33 31 2d 6d 79 25 |*32)+16,|((31-my%|
|00000cd0| 29 2a 33 32 29 2b 31 36 | 2c 31 32 0d 03 f2 27 f2 |)*32)+16|,12...'.|
|00000ce0| 70 6c 6f 74 28 28 78 25 | 20 81 33 32 29 2a 32 2c |plot((x%| .32)*2,|
|00000cf0| 28 31 30 32 33 2d 79 25 | 29 81 33 32 2c 63 6f 6c |(1023-y%|).32,col|
|00000d00| 25 29 0d 03 fc 42 e7 20 | 78 78 25 3d 6d 78 25 20 |%)...B. |xx%=mx% |
|00000d10| 80 20 79 79 25 3d 6d 79 | 25 20 e6 33 2c 37 3a c8 |. yy%=my|% .3,7:.|
|00000d20| 8f 20 c8 90 20 28 6d 78 | 25 2a 33 32 29 2b 31 36 |. .. (mx|%*32)+16|
|00000d30| 2c 28 28 33 31 2d 6d 79 | 25 29 2a 33 32 29 2b 31 |,((31-my|%)*32)+1|
|00000d40| 36 2c 31 32 0d 04 06 05 | e1 0d 04 10 05 20 0d 04 |6,12....|..... ..|
|00000d50| 1a 0d dd f2 73 65 74 73 | 69 7a 65 0d 04 24 25 e6 |....sets|ize..$%.|
|00000d60| 33 2c 37 3a c8 93 20 c8 | 90 20 30 2c 31 30 32 33 |3,7:.. .|. 0,1023|
|00000d70| 2c 73 78 25 2a 31 32 38 | 2c 2d 73 79 25 2a 33 32 |,sx%*128|,-sy%*32|
|00000d80| 0d 04 2e 29 f5 3a f5 3a | c8 97 20 78 25 2c 79 25 |...).:.:|.. x%,y%|
|00000d90| 2c 62 25 3a fd 20 62 25 | 3e 3d 32 3a e7 20 62 25 |,b%:. b%|>=2:. b%|
|00000da0| 3d 32 20 8c 20 8d 44 56 | 44 0d 04 38 20 c8 93 20 |=2 . .DV|D..8 .. |
|00000db0| c8 90 20 30 2c 31 30 32 | 33 2c 73 78 25 2a 31 32 |.. 0,102|3,sx%*12|
|00000dc0| 38 2c 2d 73 79 25 2a 33 | 32 0d 04 42 38 73 78 25 |8,-sy%*3|2..B8sx%|
|00000dd0| 3d 28 78 25 20 81 20 31 | 32 38 29 2b 31 3a 73 79 |=(x% . 1|28)+1:sy|
|00000de0| 25 3d 28 31 30 32 33 2d | 79 25 29 20 81 20 33 32 |%=(1023-|y%) . 32|
|00000df0| 20 2b 31 3a e7 20 73 78 | 25 3e 38 20 73 78 25 3d | +1:. sx|%>8 sx%=|
|00000e00| 38 0d 04 4c 20 c8 93 20 | c8 90 20 30 2c 31 30 32 |8..L .. |.. 0,102|
|00000e10| 33 2c 73 78 25 2a 31 32 | 38 2c 2d 73 79 25 2a 33 |3,sx%*12|8,-sy%*3|
|00000e20| 32 0d 04 56 0a fd 20 62 | 25 3d 32 0d 04 60 20 c8 |2..V.. b|%=2..` .|
|00000e30| 93 20 c8 90 20 30 2c 31 | 30 32 33 2c 73 78 25 2a |. .. 0,1|023,sx%*|
|00000e40| 31 32 38 2c 2d 73 79 25 | 2a 33 32 0d 04 6a 29 c8 |128,-sy%|*32..j).|
|00000e50| 8f 20 c8 90 20 28 6d 78 | 25 2a 33 32 29 2b 31 36 |. .. (mx|%*32)+16|
|00000e60| 2c 28 28 33 31 2d 6d 79 | 25 29 2a 33 32 29 2b 31 |,((31-my|%)*32)+1|
|00000e70| 36 2c 31 32 0d 04 74 34 | e3 6c 25 3d 30 b8 33 31 |6,12..t4|.l%=0.31|
|00000e80| 3a f1 8a 36 34 2d 28 28 | 38 2d 73 78 25 29 2a 38 |:..64-((|8-sx%)*8|
|00000e90| 29 2c 6c 25 29 3b c4 28 | 38 2d 73 78 25 29 2a 38 |),l%);.(|8-sx%)*8|
|00000ea0| 2c 22 20 22 29 3b 3a ed | 0d 04 7e 33 e7 20 73 79 |," ");:.|..~3. sy|
|00000eb0| 25 3c 33 32 20 3a e3 20 | 6c 25 3d 33 31 20 b8 20 |%<32 :. |l%=31 . |
|00000ec0| 73 79 25 20 88 2d 31 3a | f1 8a 30 2c 6c 25 29 3b |sy% .-1:|..0,l%);|
|00000ed0| c4 36 34 2c 22 20 22 29 | 3b 3a ed 0d 04 88 37 ef |.64," ")|;:....7.|
|00000ee0| 32 38 2c 36 36 2c 33 30 | 2c 37 38 2c 31 38 2c 31 |28,66,30|,78,18,1|
|00000ef0| 32 2c 32 36 3a e3 20 6c | 79 25 3d 31 20 b8 20 73 |2,26:. l|y%=1 . s|
|00000f00| 79 25 3a e3 20 6c 78 25 | 3d 31 20 b8 20 73 78 25 |y%:. lx%|=1 . sx%|
|00000f10| 2a 34 0d 04 92 3a f2 70 | 6c 6f 74 28 28 6c 78 25 |*4...:.p|lot((lx%|
|00000f20| 2d 31 29 2a 32 2c 6c 79 | 25 2d 31 2c b0 28 6c 78 |-1)*2,ly|%-1,.(lx|
|00000f30| 25 2a 33 32 29 2d 31 36 | 2c 28 33 32 2d 6c 79 25 |%*32)-16|,(32-ly%|
|00000f40| 29 2a 33 32 2b 31 36 29 | 29 3a ed 2c 0d 04 9c 22 |)*32+16)|):.,..."|
|00000f50| e7 20 6d 78 25 3e 3d 28 | 73 78 25 2a 34 29 20 8c |. mx%>=(|sx%*4) .|
|00000f60| 20 6d 78 25 3d 28 73 78 | 25 2a 34 29 2d 31 0d 04 | mx%=(sx|%*4)-1..|
|00000f70| a6 1a e7 20 6d 79 25 3e | 3d 73 79 25 20 8c 20 6d |... my%>|=sy% . m|
|00000f80| 79 25 3d 73 79 25 2d 31 | 0d 04 b0 2e e6 33 2c 37 |y%=sy%-1|.....3,7|
|00000f90| 3a c8 8f 20 c8 90 20 28 | 6d 78 25 2a 33 32 29 2b |:.. .. (|mx%*32)+|
|00000fa0| 31 36 2c 28 28 33 31 2d | 6d 79 25 29 2a 33 32 29 |16,((31-|my%)*32)|
|00000fb0| 2b 31 36 2c 31 32 0d 04 | ba 05 e1 0d 04 c4 05 20 |+16,12..|....... |
|00000fc0| 0d 04 ce 0f dd 20 a4 66 | 69 6c 65 6e 61 6d 65 0d |..... .f|ilename.|
|00000fd0| 04 d8 1f f1 8a 36 34 2c | 31 30 29 22 4e 61 6d 65 |.....64,|10)"Name|
|00000fe0| 3a 22 3b 3a fb 36 3a 2a | 46 58 31 35 2c 30 0d 04 |:";:.6:*|FX15,0..|
|00000ff0| e2 2e 6c 65 6e 3d 30 3a | 77 64 24 3d 22 22 3a f5 |..len=0:|wd$="":.|
|00001000| 3a f5 3a 6b 3d a5 3a fd | 20 6b 3e 33 32 20 80 20 |:.:k=.:.| k>32 . |
|00001010| 6b 3c 31 32 38 20 84 20 | 6b 3d 31 33 0d 04 ec 1a |k<128 . |k=13....|
|00001020| e7 20 6b 3d 31 32 37 20 | 80 20 6c 65 6e 3d 30 20 |. k=127 |. len=0 |
|00001030| 8c 20 8d 54 54 45 0d 04 | f6 2c e7 20 6b 3d 31 32 |. .TTE..|.,. k=12|
|00001040| 37 20 8c 20 77 64 24 3d | c0 77 64 24 29 3a 6c 65 |7 . wd$=|.wd$):le|
|00001050| 6e 2d 3d 31 3a ef 38 2c | 33 32 2c 38 3a e5 8d 54 |n-=1:.8,|32,8:..T|
|00001060| 54 45 0d 05 00 1a e7 20 | 6b 3d 31 33 20 84 20 6c |TE..... |k=13 . l|
|00001070| 65 6e 3d 31 30 20 8c 20 | 8d 54 54 45 0d 05 0a 18 |en=10 . |.TTE....|
|00001080| 6c 65 6e 2b 3d 31 3a 77 | 64 24 2b 3d bd 28 6b 29 |len+=1:w|d$+=.(k)|
|00001090| 3a ef 20 6b 0d 05 14 0f | fd 20 6b 3d 31 33 3a 3d |:. k....|. k=13:=|
|000010a0| 77 64 24 0d ff          |                         |wd$..   |        |
+--------+-------------------------+-------------------------+--------+--------+